<?php
//------------------------------------------------------------ Contraintes d'accès de la page

	// on vérifie que cette page est appelée à partir de l'index et que l'utilisateur a le droit de suppression
	if(isset($_SESSION) && ($GLOBALS['USER']['level'] >= 5 || $GLOBALS['USER']['admin'])){
	
		// l'identifiant de la donnée à supprimer est indiqué par un entier
		if(isset($_GET['id']) && numericInt($_GET['id'])){

?>
<?php
//------------------------------------------------------------ Suppression des données

/********************************* Règles :

	- id doit désigner une seule espèce
	- L'espèce doit exister dans la BDD
	- L'espèce ne doit pas être lié à une autre entité

*****************************************/

	$statut = array(); // indique le statut du traitement du formulaire (echec ou succes) - tableau contenant les messages à afficher
	$erreur = false; // indique si une erreur a été rencontrée lors du traitement

	//---------------------------------- Contrôle des données ----------------------------------
		
	$nb_especes = valueExists((int)$_GET['id'], "CODEESPECE", "espece", $connexion);
	
	if($nb_especes == 0){ // l'espèce n'existe pas
		$statut[] = "L'espèce indiquée n'existe pas";
		$erreur = true;
	}else{
		
		// On compte le nombre de liens entre l'espèce et d'autres entités
		$query_recuperation_nb_liens_espece = "SELECT * ";
		$query_recuperation_nb_liens_espece .= "FROM ( ";
		$query_recuperation_nb_liens_espece .= "SELECT COUNT(*) AS nbEspecesSSEspece ";
		$query_recuperation_nb_liens_espece .= "FROM espece e, a_pour_espece a ";
		$query_recuperation_nb_liens_espece .= "WHERE e.CODEESPECE = a.CODEESPECE ";
		$query_recuperation_nb_liens_espece .= "AND e.CODEESPECE = ".$_GET['id']." ";
		$query_recuperation_nb_liens_espece .= ") T1, ";
		$query_recuperation_nb_liens_espece .= "( ";
		$query_recuperation_nb_liens_espece .= "SELECT COUNT(*) AS nbEspecesTaxons ";
		$query_recuperation_nb_liens_espece .= "FROM espece e, est_de_espece a ";
		$query_recuperation_nb_liens_espece .= "WHERE e.CODEESPECE = a.CODEESPECE ";
		$query_recuperation_nb_liens_espece .= "AND e.CODEESPECE = ".$_GET['id']." ";
		$query_recuperation_nb_liens_espece .= ") T2 ";
		
		$result_recuperation_nb_liens_espece = mysql_query($query_recuperation_nb_liens_espece, $connexion) or logError("RECUPERATION NB LIENS ESPECE-".$query_recuperation_nb_liens_espece."-".mysql_error());
		
		if(mysql_num_rows($result_recuperation_nb_liens_espece) == 1){ // on a réussi à récupérer les données de l'espèce à supprimer
			
			$tab_recuperation_nb_liens_espece = mysql_fetch_row($result_recuperation_nb_liens_espece);
			
			if($tab_recuperation_nb_liens_espece[0] > 0){
				$statut[] = "Cette espèce est utilisée par ".$tab_recuperation_nb_liens_espece[0]." classement(s) Espèce/Sous-Espèce";
				$erreur = true;
			}
			if($tab_recuperation_nb_liens_espece[1] > 0){
				$statut[] = "Cette espèce est utilisée par ".$tab_recuperation_nb_liens_espece[1]." taxon(s)";
				$erreur = true;
			}
			
		}else{
			$statut[] = "Une donnée n'a pas pu être vérifiée";
			$erreur = true;
		}
		
		mysql_free_result($result_recuperation_nb_liens_espece);
		
	}
	
	//---------------------------------- Suppression de l'espèce ----------------------------------
	
	if(!$erreur){ // aucune erreur n'a été rencontrée jusqu'ici
	
		// Suppression des informations de la table GENRE_A_POUR_ESPECE
		$query_suppression_lien_espece_genre = "DELETE FROM genre_a_pour_espece WHERE CODEESPECE = ".$_GET['id']." ";
		$result_suppression_lien_espece_genre = mysql_query($query_suppression_lien_espece_genre, $connexion) or logError("SUPPRESSION LIENS ESPECE / GENRE-".$query_suppression_lien_espece_genre."-".mysql_error());
		
		// Suppression des informations de la table A_POUR_SOUS_GENRE
		$query_suppression_lien_espece_sous_genre = "DELETE FROM a_pour_sous_genre WHERE CODEESPECE = ".$_GET['id']." ";
		$result_suppression_lien_espece_sous_genre = mysql_query($query_suppression_lien_espece_sous_genre, $connexion) or logError("SUPPRESSION LIENS ESPECE / SOUS GENRE-".$query_suppression_lien_espece_sous_genre."-".mysql_error());

		// Suppression des informations de la table EST_DANS_LISTE
		$query_suppression_lien_espece_liste = "DELETE FROM est_dans_liste WHERE CODEESPECE = ".$_GET['id']." ";
		$result_suppression_lien_espece_liste = mysql_query($query_suppression_lien_espece_liste, $connexion) or logError("SUPPRESSION LIENS ESPECE / LISTE-".$query_suppression_lien_espece_liste."-".mysql_error());
		
		// Suppression des informations de la table EST_DANS_ANNEXE
		$query_suppression_lien_espece_annexe = "DELETE FROM est_dans_annexe WHERE CODEESPECE = ".$_GET['id']." ";
		$result_suppression_lien_espece_annexe = mysql_query($query_suppression_lien_espece_annexe, $connexion) or logError("SUPPRESSION LIENS ESPECE / ANNEXE-".$query_suppression_lien_espece_annexe."-".mysql_error());
			
		// Suppression des informations de la table POSSEDE_PROPRIETE
		$query_suppression_lien_espece_propriete = "DELETE FROM possede_propriete WHERE CODEESPECE = ".$_GET['id']." ";
		$result_suppression_lien_espece_propriete = mysql_query($query_suppression_lien_espece_propriete, $connexion) or logError("SUPPRESSION LIENS ESPECE / PROPRIETE-".$query_suppression_lien_espece_propriete."-".mysql_error());
			
		if($result_suppression_lien_espece_genre === true && $result_suppression_lien_espece_sous_genre === true && $result_suppression_lien_espece_liste === true && $result_suppression_lien_espece_annexe === true && $result_suppression_lien_espece_propriete === true){
	
			// Suppression des informations de la table ESPECE
			$query_suppression_espece = "DELETE FROM espece WHERE CODEESPECE = ".$_GET['id'];
			$result_suppression_espece = mysql_query($query_suppression_espece, $connexion) or logError("SUPPRESSION SOUS FAMILLE-".$query_suppression_espece."-".mysql_error());
			
			if($result_suppression_espece === true){
				$statut[] = "L'espèce a été supprimée - redirection dans 2 sec...";
				logAction("ESPECE (id: ".$_GET['id'].") SUPPRIMEE par ".capitalise($GLOBALS['USER']['prenom'])." ".mb_strtoupper($GLOBALS['USER']['nom'])." (".$GLOBALS['USER']['login'].")");
			}else{
				$statut[] = "Erreur critique lors de la suppression de l'espèce";
				$erreur = true;
			}
			
		}else{
			$statut[] = "Erreur critique lors de la suppression de l'espèce";
			$erreur = true;
		}

	}

?>
<?php
//------------------------------------------------------------ Affichage du statut
	
	if($erreur){
		boutonRetour("index.php?p=gestion/espece_gere"); // appel à la fonction boutonRetour() définie dans fonctions.php
		afficherStatut($statut, 3); // appel à la fonction afficherStatut() définie dans fonctions.php
	}else{
		afficherStatut($statut, 1); // appel à la fonction afficherStatut() définie dans fonctions.php
		redirection("gestion/espece_gere", 2);
	}

?>
<?php
	if($erreur){
?>
<div class="information">
	<div class="titre">Information</div>
	<h4>Erreurs de suppression :</h4>
	<p>
		Si la ressource à supprimer est liée à d'autres éléments, vous ne pourrez pas la supprimer.<br />
		Si vous souhaitez tout de même la supprimer, il vous faudra préalablement supprimer les éléments auxquels elle est liée.
	</p>
</div>
<?php
	}
?>
<?php
//------------------------------------------------------------ Accès refusé à la page

		}else{
			afficherStatut("L'espèce n'est pas ou mal indiquée", 3); // appel à la fonction afficherStatut() définie dans fonctions.php
		}

	}else{
		if(isset($_SESSION)){
			if(!isset($_SESSION['user_id'])){ // si l'utilisateur n'est pas connecté
				include("pages/connexion.php");
			}else{ // si l'utilisateur est connecté et qu'il n'a pas accès à la page, c'est qu'il n'a pas le droit d'utilisation nécessaire
				include("pages/401.htm");
			}
		}
	}

?>